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42 
RC 
MODULE INIVOL ( 


COooooo 


BEGIN 


' 
VRE R EEE ERE A EEE TEE EEE EEE AERA EEAEEEREEREREEEES 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


!® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
IN ACCORDANCE W THE TE TH THE 
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3 1 n H 
3 4 ; 
3 5 8 5 $ : 
: $ 0 § 1 ; 
; 8 8 8 1 ‘ 
3 4 9 1 3 
; Ww 0010 1 * : 
3 13 0011 : * : 
4 w . 
3 i§ 6 g 1 * ; 
ea 0014 1 * ; 
0015 1 * ; 
H 16 0016 1 !* ONLY ITH OF SUCH LICENSE AND wi * : 
: 17 0017 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * ; 
: 18 0018 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ’ 
s 19 0019 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ‘ 
H st $ : > TRANSFERRED. * | : 
D4 . & r ® ' P 
; $§ 0 $§ 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
: 0 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ; 
3 $¢ 8 $e : ‘* CORPORATION, * ; 
3 '® * : 
; 26 0 $$ 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * . 
: e7 0027 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * . 
; 2 0028 1 !* * ; 
$ 9 0029 1 !* * : 
3 Ht ait 1 Lee RARER AEE RARER AERA REA E AAR EAAAEEEAAAEAAAAEAAAEAAAAAAKEEEAEEE b 
: 1 0031 1 3 
3 3 BOs 1 !4¢ : 
: 0035 1! : ; 
: 4 0034 1! FACILITY: INIT Utility Structure Level 2 : 
: 5 0035 1! ‘ 
; 6 0036 1 ! ABSTRACT: 3 
[> a 0037 1! : 
3 $ st ! This is the main program for the INITIALIZE volume utility. : 
:; 460 0040 1 ! ENVIRONMENT: : 
s 6} 0041 1! $ 
; 42 944 1! STARLET operating system, including privileged system services ; 
in Oe 00463 1! and internal exec routines. . 
3 44 bee 1! é 
; 6 =«645 045 1 !=- : 
; 646 Bne$ ae 3 
3 47 047 1! : 
; ri rt 1 : AUTHOR: Andrew C. Goldstein, CREATION DATE: 9-Nov-1977 18:17 : 
: 31 0050 : : MODIFIED BY: : 
; § 0032 8. V03-003 HH0041 Hai Bupne 24-Jul-1984 3 
; 3 B07 : Remove REQUIRE ‘'LIBD$:CVASLIB.OBJJMOUNTMSG.REQ'. : 
2; 0055 1! v0O3-002 MCNO140 Maria del C. Nasr 29-Nov-1983 : 
3 2$ bpe$ ' } Changes required by new CLI interface. : 


ie 

VOL 1g-se0- 138% 01:41:24 VAX-11 Bliss-32 V4.0-742 2 

-000 14-Sep-1984 12:35:19 DISKSVMSMASTER : CINIT.SRCJINIVOL.832; 929 Say 
: 58 0058 1! v03-001 £13038 Steven T. Jeffreys, 14=0c t-1982 | : 
5 23 O96 ! } the INIT fails, ee up the drive with an fos AVAILABLE i/o. : 
: 61 061 1! v0103 acGo072 Andrew C. Goldstein, 15-Oct-1979 16:03 é 
; 6¢ Opes : Check both primary and secondary device char ; 
: 64 064 1: v0102 AacG0069 Andrew C. Goldstein,  9-Oct-1979 16:31 : 
; o? bee } Remove device data table : 
: 6 be? 1 i v0101 aAcG25501 Andrew C. Goldstein, —_ 11:34 ‘ 
3 $8 4 : Clear volume valid only if volume was not mounted 
; 0 Oro 1/ v0100 €G00001 Andrew C. wdtth ein, 10-Oct-1978 21:28 
$ 4! 38 } & ae Hy nee oy Nb history moved to CINIT SREJINIT.REV 
ee $078 . 
... 0074 1 
: 75 0075 1 LIBRARY greet IBOART sh 1G, L52"2 
; 76 343 1 REQUIRE ‘SRC$:INIDEF.B32'; 
; 77 036 1 REQUIRE ‘LIBD$:CVMSLIB.OBJIJINITMSG.B32'; 
3 78 0499 1 
; 79 0500 1 
3 80 0501 1 FORWARD ROUTINE 
3 81 p26 1 INIT_VOLUME, ! main program 
36 CS 0503 1 MAIN_HANDLER; ' condition handler 


4.0-742 3 
NIT.SRCJINIVOL.B32; ," * (2) 


- 


Ooo 


i General impure storage for the INIT utility. 


NOUS 


GLOBAL LITERAL 
NAMEBUF _LEN 
USERNAME_LEN 


#5. : Length of device name buffer | 
12; ! maximum Length of user name string 


a 
rm 
® 
> 
- 


CLEANUP_FLAGS : BITVECTOR C32), ! cleanup action flags 
CHANNEL, oe a for all 1/0 


or for device characteristics 
DEVCHAR_DESC2 : VECTOR (2) INITLAC? (D1 $e "LENGTH, DEVICE _CHAR2); 
' descriptor for sec. device characteristics 
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96 

97 PROCESS_UIC, ‘a * this process 

98 DEVICE_CHAR : BBLOCK CDIBSK -LeNGty s 
GS er for device characteristics 
100 DEVICE_CHAR2 : BBLOCK CDIBSK ened, 

101 buffer for sec. device characteristics 
ins PHYS _NAME : VECTOR #. f aye tget eg evice name descriptor 
10 NAME _BUFFER : VECTOR NAREBUF E 

104 uffer ror “physical device name 
105 USER_STRING : VECTOR USERNAME LEN. “eYT 

198 ' Buffer for user name string 

108 GLOBAL 

+ DEVCHAR_DESC : VECTOR (2) vad be be ee LENGTH, DEVICE_CHAR), 
111 

112 


224 VAX-11 Bliss-32 V4.0-742 Page 4 
719 DISKSVMSMASTER:CINIT.SRCJINIVOL.B32;1 (3). 
; 114 5 3 1 GLOBAL ROUTINE INIT_VOLUME = : 
: 115 4 } ; 
; 118 2 5 7 fe ; 
ey gti : 
; 138 i : FUNCTIONAL DESCRIPTION: ; 
; | 9 239 | This is the main routine of the INITIALIZE volume utility. | : 
s 4 ; 541 1! : 
.-3 208 1 ! CALLING SEQUENCE: ; 
; ; ¢ 0364 : INIT_ VOLUME (ARG1, ARG2) | . 
: 126 ats | i INPUT PARAMETERS: | : 
3 «fer 0546 1! ARG}: yore start address ‘ 
; 128 0547 1! ARG2: CLI service callback address ° 
: 129 0548 1 | | : 
: 130 0549 1! IMPLICIT INPUTS: | ; 
; 33) 0550 1! NONE : 
; 136 0551 1! : 
3 13 055¢ 1 {| OUTPUT PARAMETERS: | : 
> 134 0553 1} NONE | : 
3 139 0554 1! : 
; 136 0555 1 ! IMPLICIT OUTPUTS: : 
3 iar 0556 1! NONE | : 
; (138 0557 1! ; 
: 139 0558 1 | ROUTINE VALUE: | : 
; 140 0559 1! assorted status values : 
3; (141 0560 1! ; 
i 14g 0561 1! SIDE EFFECTS: > | : 
s 4 Beg , | volume initialized | ‘ 
3; 144 0565 1! : 
; 6145 0564 1 !-- ‘ 
> 146 0565 1 : 
; 147 0566 § BEGIN ‘ 
: 148 0567 | ; 
3 149 0568 § LOCAL ; ; 
; 150 0569 ‘ ! string scan pointer : 
s Wt 0570 2 STATUS, ! system service status : 
3 136 eral § DEVICE _NAME : BBLOCK COSCSC_S_BLNJ; ! device name descriptor | ; 
3 154 o878 2 EXTERNAL ‘ 
3 35 0574 2 INIT OPTIONS : BITVECTOR ! parser option flags ; ‘ 
; 156 0575 2 DEVITE_ STRING : BBLOCK COSc$C_S_BLNJ, ! device name string descriptor | : 
3 130 8278 USER_NAME : BBLOCK CDSC$C"~S"BLNJ; ! user name string descriptor : 
3; 159 0578 EXTERNAL ROUTINE . 
3; 160 0579 INIT_PARSE, ' command parser : 
; (161 0580 TRAN_LOGNAME , ' translate logical name : 
3 168 0581 INIT_TAPE, ! initialize magtape : 
; 197 b28¢ INIT_DISK; ! initialize disk ‘ 
; + 4 Bene BIND OPTIONS = INIT_OPTIONS : VECTOR; ° 
; + 24 8 ENABLE MAIN_HANDLER; : 
; 19) 0388 : Get the UIC of this process for use in defaulting volume ownership. : 
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: 171 0590 
3 176 p 28 
; V7 238 
s 376 59 

: 175 0594 
: 176 P 0595 
TE Le 0596 
: 178 0597 
: 179 0598 
; 180 0599 
: «6181 0600 
3 186 0601 
s 18 bees 
> «186 060 

: 185 0604 
; «4186 0605 
: 187 0606 
; «(188 0607 
: 189 0608 
; 190 0609 
; «6191 0610 
4 bs 0611 
; W pols 
: 194 061 

3; 195 0614 
; 196 0615 
s 197 0616 
; 198 0617 
3; 4199 0618 
: 200 0619 
: 201 0620 
3 $06 $66) 
: 20 06 ; 
: 204 062 

3; 205 0624 
: 206 0625 
s 207 B58 
; 208 062 

: 209 0628 
; 210 +494 
3: 211 0630 
r sig 0631 
: $i o638 
; 15 rae 
3 16 B08 
3s aur 06 § 
; 18 P o3 

: 19 P 0638 
3 0 639 
3 1 640 
: 558 ee 
; $s¢ borg 
: 225 P 0644 
3 $58 0645 
3; ée7 0646 
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SGETJPI (ITMLST = UPLIT (WORD (4), WORD (JPI$_UIC) 
LONG (PROCESS_UIC, 07 0))5; 
USER_NAME [DSCS$A_POINTER] = USER_STRING; 
SGETIP] (ITMLST = UPLIT (WORD (USERNAME LEN), WORD (JPIS$ USERNAME) 
LONG (USER_STRING, USER_NAMELDSC$W_LENGTHI, 0))); 


Parse the command Line. Frrors are signalled. 


CHANNEL = 0; 
INIT_PARSE (); 


! First allocate the volume and assign a channel to it. Allocating does most 
: of the checking that we in fact have a right to touch this device. 

! Note that we append a zero to the device name if a unit number is not 

' present. This “1 ine a generic device search, which is not desirable 

in doing an INIT. 


CHSFILL ( 0, DSC$C_S_BLN, DEVICE_NAME ); 
DEVICE_NAME ite CLASS) C$R CLASS D; 


S 
DEVICE-NAME COSCS$W"LENGTH] = NAMEBUF LER; 
DEVICE-NAME CDSC$A~POINTER] = NAME_BOFFER; 


TRAN_LOGNAME (DEVICE_STRING COSCSW_LENGTH], DEVICE_NAME CDSC$W_LENGTH)); 


Use the low word, since high word has descriptor information. 
iF CHSFAIL (.P) 
P = .DEVICE_NAME CDSC$W_LENGTH] + .DEVICE_NAME CDSCS$A_POINTER); 


eas (.P=-1) LSSU 'O" OR CHSRCHAR (.P-1) GTRU ‘9° 


BEGIN 
CHSWCHAR_A 


('O", P); 
CHSWCHAR-A (':', P); 
DEVICE _NAME CoSCSw_LENGTH] = .DEVICE_NAME CDSC$W_LENGTH] + 1; 
PHYS_NAME(O] = NAMEBUF_LEN; 
PHYS-NAMEL1] = NAME BUFFER: 
STATOS = $ALLOC (DEUNAN - DEVICE_NAME COSC$W_LENGTH), 


PHYS_NAME 15. 


PHYBUF = PHYS_NAMELO 


IF NOT .STATUS 

THEN 

ERR_EXIT (.STATUS); 

STATUS = SASSIGN (DEVNAM = PHYS NAMECO], 
CHAN = CHANNEL); 

IF NOT .STATUS 


P = CHSFIND_CH (.DEVICE_NAME CDSCS$W_LENGTH], .DEVICE_NAME CDSCSA_POINTER], ': 
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REJINIVOL. B32; 9 


THEN 


ERR_EXIT (.STATUS); 
heyy spores ver tye" s and make sure —. the device can be 
s file oriented, et 
ESS “ seranhler yo characteristics indic 
or something else strange - reject it of so. 


A mismatch between 
tes a spooled device 


SGETCHN (CHAN = 


- CHANNEL, PRIBUF 
IF ee (DIBSK_LENGTH 
OR NOT RARCDEVSV 


= DEVCHAR_DESC, SCDBUF 
gy “ese CHAR, DIBSK_LENGTH, DEVICE_CHAR2, 0) 


= DEVCHAR_DESC2); 


THEN ERR. 


IF NOT 
THEN ERR. 


IF 


E_CHARCDEVSY AVL] 
SS$_DEVOFFCINE); 


SS$_DEVMOUNT) ; 


THEN ERR_ER 


IF 


Device is now known not to be mounted. 


CLEANUP_FLAGSCCLF_ CLEARVALID] = 


GIN 
-DEVICE_CHARCOEV$V_SQD] 


N 
((.OPTIONSCO] AND NOT TAPE_OFTIONS) NEQ 0 
OR (.OPTIONSC1] AND NOT TAPE_OPTIONS2) NEQ 0 ) 


LSE 
((.OPTIONSCO] AND NOT DISK_OPTIONS) NEQ 0 
OR (.OPTIONS(1) AND NOT DISK_OPTIONS2) NEQ 0 ) 


END 
THEN ERR_EXIT (CINITS_ILLOPT); 
Now initialize the volume, depending on its type. 


A -DEVICE_CHARCDEV$vV_SQD] 


SDASSGN (CHAN = CHANNEL); 
SDALLOC (DEVNAM = 


RETURN 1; 
END; 


: 
| 
j 
ee 


! end of routine INIT_VOLUME 


7 ae 
INIV 1 a Sep VAX=11 Bliss=32_ V4.0-742 7 
v04= 14-Sep 71382 3: $3; 13 DISKSVMSMASTER:CINIT.SRCJINIVOL.832; ; * 3) 


.PSECT $PLITS$,NOWRT,NOEXE,2 

P.AAA: WORD 

WORD 772 
“ADDRESS PROCESS_UIC 

“LONG 0, 0 
“WORD le 
[WORD 514 
“ADDRESS USER_STRING, USER_NAME 
LONG 0 
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-PSECT $GLOBAL$,NOEXE ,2 | 
00000 CLEANUP "yes | 
| 


4 
00004 CHANNEL:: 

LKB 4 | 
00008 PROCESS UIC: : : | 
0000C DEVICE_CHAR: : 
00080 DEVICE_cHAR2: : | 
BLK 116 | 
OOOF4 PHYS_NAME:: | 
-BLKB 8 
OOOFC NAME_BUFFER: : = | 
0011C USER_STRING: : | 
00000074 00128 DEVCHAR_DESC:: 
00000000" 0012¢ ADDRESS DEVICE_CHAR : | 

00000074 001 6 DEVCHAR -DESC2:: hae 
00000000" 00134 -ADDRESS DEVICE_CHAR2 : | 
NAMEBUF _LEN== 32 


USERNAME “LENE 12 
TRN INIT_OPTIONS, DEVICE_STRING 
*EXTRN USER. NAME, INIT E 


DA Ltoe 
-PSECT SCODE$,NOWRT,2 

0000 .ENTRY INIT VOLUME, Save R2,R3.R4,R5.R6,R7,RB,RO 

0002 MOVAB PTIONS, R 

000 MOVAB reser eipr: RB 

9005 MOVAB LI R7 

01 MOV DEVICE_CHAR, R6 

0 1p MOVAL $, (FP) 

8022 CLRQ. = (SP) 
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f 
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-(SP) 
#7, SYSS$GETUPI 
CHANNEL 
#0, (SP)7 ie E48, DEVICE_NAME 
DEVICE NAME +3 

DEVICE_NAME 
ASS, _BUFFER> DEVICE_NAME+4 


§ 
DEVICE STRING fi 
n56, DEVICES ONAME,, @DEVICE_NAME +4 


AME 
- Pas PHYS_NAME+4 
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3 
000 
900 
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0 
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PHYS _NAME 
#4, SYSSASSIGN 
RO, STATUS 


“i, $STO 
DEVCHAR_ Desc 
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B 
E 
C 
4 
F 
C 
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; Routine Size: 400 bytes, Routine Base: S$CODE$ + 0000 


i 
INIVO 16-Sep-1984 01:41:24  VAX=11_Bliss-32_V4.0-742 Page 9 
v04-0 10230-1984 93:93:95 DISKSVMSMASTER:CINIT.SRCJINIVOL.B32;1 (3) 
F8 kb DD a6 PUSKL CHANNEL bs | ; 
000000006 00 a8 FB E CALLS #5, SYSSGETCHN : : 
74 Ab 66 0074 BE ¢ F CMB 116, DEVICE_CHAR, DEVICE_CHAR2 ; 0658) : 
U8 01 A6 6 (0 rg BBS #6, DEVICE _CHAR+1, 8$ > 0659 | : 
7 Oicc «BF OSC 0 Fe 7$ MOV2WL #460, -(SPT ; 0660 : 
6 1 FB O01 CALLS #1, LIBS$STOP : : 
07 02 Ab 2 £0 00106 8s § #2, DEVICE CHAR+2, 9$ > 066 ; 
7 84 8F 9A 00108 MOVZBL #152, (SPY ; 066 : 
6 1 FB OO10F ALLS #1, LIBSSTOP : : 
07 02 A6 3 §1 0011¢ 98 BC #3, DEVICE CHAR+2, 108 ; 0665 : 
7 6¢ BF 9A 0011 MOVZBL #108, -(SPT > 0666 : 
6 1 FB 0011B CALLS #1, LIBSSTOP : : 
F4 AG Oe 86 OO11E 108: — BISB2 #2, CLEANUP FLAGS ; 0671 : 
13 66 05 £1 001 BBC #5, DEVICE CHAR, 11$ ; 0675 : 
30FFDB98 BF 69 f 01 6 BTL OPTIONS, #822074264 ; 0677 : 
FFFFF835  8F 04 AP D3 OIE BITL —OBTIONS+4, #-1995 ; 78 : 
48000022 8F 69 03 00139 118:  BITL OPTIONS, #1207959586 ; 0680 : 
OA 12 00140 BNEQ ; : 
FFFFF3CA  8F 06 Ad D3 00142 BITL  OPTIONS+4, #-3126 ; 0681 : 
09 13 0014A 12$:  BEQL ; : 
00758034 8F DD 0014C 13$:  PUSHL #7700532 : 0683 : 
67 O1 FB 00152 CALLS #1, LIBSSTOP ; : 
66 05 €1 00155 148: BBC #5, DEVICE CHAR, 15$ ; 0688 : 
0000G CF 00 FB 00159 CALLS #0, INIT_TAPE ; 0690 ‘ 
05 11 0015E BRB 16 ; : 
00006 CF 00 FB 00160 15$ CALLS #0, INIT_DISK ; 0692 : 
F8 AG DD 00165 168 PUSHL  CHANN 3 0694 : 
000000006 00 01 FB 00168 CALLS #1, SYSSDASSGN ; : 
7E D4 OO16F CLRL. 0 = (SP) ; 0695 ; 
00OE8 C6 9F 00171 PUSHAB PHYS NAME ; : 
000000006 00 O02 FB 00175 CALLS #2, SYSS$DALLOC 3 : 
50 01 DO 0017¢ MOVL #1, RO : 0697 ; 
04 0017F RET : 0699 ; 
0000 00180 17$: -WORD Save nothing ; 0566 : 
7E D4 00182 LRL = = (SP) ; : 
SE DD 00184 PUSHL ; : 
7E 04 AC 7D 00186 MOVa.  4(AP), =(SP) : ; 
0000v CF 03 FB 0018A CALLS #3, MAIN_HANDLER ; : 
04 0018F RET 3 : 
| ee 


4.0- 
NIT. 


On 


4 Pa 10) 
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ROUTINE VALUE: 
SS$_RESIGNAL 


SIDE EFFECTS: 
cleanup done on unwind 


r 9 ROUTINE MAIN_HANDLER (SIGNAL, MECHANISM) = 
7 ¢ le 
85 7 ‘ 
iy . : FUNCTIONAL DESCRIPTION: 
4 | 
88 706 ! This routine is the main level condition handier for the INIT 
289 707 ! utility. It cleans up and returns the error status to the caller | 
290 708 ! (the CLI). 
291 709 1: 
4 71 ‘ 
$3 71 ' CALLING SEQUENCE: 
$3e 4 MAIN_HANDLER (ARG1, ARG2) 
96 71 !' INPUT PARAMETERS: 
97 71 : ARG1: address of signal array 
eS 4 ARG2: address of mechanism array 
00 ! IMPLICIT INPUTS: 
$1 } NONE 
30 ' OUTPUT PARAMETERS: 
304 ! NONE 
05 ! 
06 ! 
0 ‘ 
1 
i 
i 
i 
i 
i 
i 
i 


| 

| 

IMPLICIT OUTPUTS: | 
NONE 

| 

} 

| 

| 

| 


SIGNAL : REF BBLOCK, ' signal array 
MECHANISM : REF BBLOCK; ! mechanism array 


EXTERNAL ROUTINE 
CLEAR_VALID; ! clear software volume valid 


SSS NNN NNN NSS NNN 


BERR RSS RWW inononononononononong 


IF .BBLOCK ESIGNAL CHESL_$1G_ NAME, STS$V_FAC_NO} EQL 0 | 
OR :BBLOCK ESIGNAL CHE SL SIG-NAME]. STS$V7FAC"NO] EQL MOUNS FACILITY | 
THEN BBLOCK CSIGNALCCHFSC_SIG_NAME, STS$0_FAC_NO) = INIT$_FACILITY; | 
IF ;BBLOCK CSIGNALCCHFSL_SIG_NAME], STSS$V_SEVERITY] EQL STSSK_SEVERE | 
| 
BEGIN 
IF .CHANNEL NEQ 0 
THEN 


BEGIN 


WAAL IAI AIR PIPINININININID 2 2 OOO Oe OO 
SEAR 2S SONU UNS OODNAMR WN =O DON 


Cn nn a a eee eee ww www loleolololealelelol ol ola lolololololololololololol ooo o) 
EP UINIWNIURRPPONIPOPOPINOPIPIPINIPOPNNDY 2 
@ 
mm 
7) 
= 
Pa 


Be Se Se Se Se Oe Be Se Be Se Se Se Se Ge Se Se Se Ge Se Se Ge Se Ge Se Ge Ge Ge Ge Ge Se Se Se Ge Se He Ge Se Ge Se Se Ge Se Se Se Se Se Se Se Os Oe BH Se He Oe Se ee ee 


QO FW OC OONOAU EWN (ODO NOAUE WN OO ONOU EWR" OOONOULS WR O 


WIAA AINI WIAA AAAAAAAAAAAAA AAA AAA 


SN NN 
PITTI & 


AWG 
oo 


Ni 1b-s¢ Sep-19 :24 -VAKe11 Bliss-32_v4.0-74 
$4000 Feet eee Shit Pee BALS FER ec Yur? Sheainzvor.e32:9°%" ¢ 


~~ 


v0é 


so 


| 

: 339 0757 4 $Q10W (CHAN = .CHANNEL, FUNC = (108. AVAILABLE OR IO$M_INHERLOG)); | ; 
: 340 7 : 4 IF .CLEANUP_FLAGSCCLF CLEAR ARVALID : 
: 341 7 4 THEN KERNEL-CALL (CLEAR VALID); ° 
: 34 760 4 SDASSGN (CHAN = .CHANNEC); | : 
: 3% 761 HANNEL = 0; é 
: 344 0766 D; F 
; 45 76 s 
: 346 0764 SDALLOC (DEVNAM = PHYS_NAME); | ; 
: 347 0765 ; 
; 348 0766 | ; 
: 349 0767 : 
; 29 0768 RETURN SS$_RESIGNAL; | ; 
; 352 0770 ! end of routine MAIN_HANDLER : 
.EXTRN CLEAR VALID, SYS$Q10W ; 
-EXTRN SYSSCAKR : 
0004 00000 MAIN_HANDLER: F 
-WORD Save R2 ; 0700 : 
52 0000" CF 9€ 0000 MOVAB CHANNEL, R2 ; : 
50 04 AC DO 0000 MOVL SIGNAL, RO + 0746 ; 
50 04 CO 00008 ADDL2 #4, RO : ; 
OFFF BF 02 AO B83 0000E ITw  2(RO), #4095 : ; 
OC 13 00014 BEQL = : ; 
00000072 = BF 02 Ad 0c 00 ED 90016 CMP ZV #0, #O2, 2(RO), #114 : 0747 ; 
02 ad oc 00 00000075 8F FO 00022 1$: INSV #117, #0, #12, ppc : 0748 ; 
04 60 03 00 ED 0002C 2$: CMPZV #0, #3, (RO), : 0750 ; 
48 12 00031 BNEQ : : 
50 62 00 00033 MOVL § CHANNEL, RO > 0754 ; 
9 13 00036 BEQL 6 4$ : ; 
— 7C 00038 CLRO = = (SP) + 0757 : 
7E 7C OOO3A CLRQ 0 = (SP) : ; 
7E 7C 0003¢ CLRQ = = (SP) : ; 
7E 7C 0003E CLRQ—_ = (SP) : : 
7E p4 00040 CLRL =(SP) : ; 
7E 0811 er C 9004¢ MOVZ2WL #2065, -(SP) : ; 
0 DD 0004 PUSHL RO : ; 
7E D4 00049 CLRL. =(SP) : : 
000000006 00 C Fe 004 CALLS ie, SYS$Q10W : : 
F FC A i €£ 909 BC #1, CLEANUP_FLAGS, 3$ : 0758 : 
E 04 CLRL 3s = ( §P) : 0759 ; 

5E pp 90039 PUSHL SP ; 
00006 i F 00058 PUSHAB CLEAR VALID ; ; 
000000006 9F 3 FB O05F CALLS #3, @¥SYSS$CMKRNL ; ; 
62 DD 00066 3$ PUSHL CHANNEL : 0760 ; 
000000006 00 01 FB 000 CALLS #1, SYS$DASSGN : : 
$2 D4 OON6F CLRL CHANNEL : 0761 : 
p4 1 4$ CLRL = = (SP) > 0764 : 
OOFO C2 OF Of t3 PUSHAB PHYS _NAME ; : 

000000006 09 6 FB 007 CALLS a3 SYSSDALLOC : 

0918 BF 3 43 5$ MOVZWL #2$28, RO : 0768 
4 008 RET : 0770 


Run : 
Elapsed tae? eis 741.1 


; Lenenes/CPU-Rin; 3 ra 
; ponery © Used: 157 pages 
; Compilation Complete 
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Size: 532 code ; 344 data bytes 


M 2 
INI VO! 16-Sep-1984 G):4]: 4 VAX-11 BLliss-32 V4.0-74 
v04-0' 14-Sep-1984 12:35:19 DISKSVMSMASTER:CINIT.SR 
; Routine Size: 132 bytes, Routine Base: S$CODE$ + 0190 
Bee 
: 355 O778 0 0 ELUDON 

-EXTRN LIBSSTOP 

; PSECT SUMMARY 
: Name Bytes Attributes 
: $GLOBALS 312 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SPLITS $$ NOVEC,NOWRT, RD »NOEXE,.NOSHR, LCL, L; CON.NOPIC,ALIGN(2) 
; SCODES 532 NOVEC,NOWRT, RD, XE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
— .* 0 NOVEC,NOWRT NORD ;NOEXE -NOSHR, LCL; ABS. CON,NOPIC.ALIGN(O) 
; Library Statistics 
ie eet. Pee es a ee Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 
: -$255$DUA28: CSYSLIBILIB.L32;1 18619 36 0 1000 00:01.9 
; COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$: INIVOL/OBJ=OBJ$: INIVOL MSRC$: INI VOL/UPDATE=(ENH$: INIVOL) 


se 
~M 


$ 
f 
E 
L 
L 
nl 
( 


EQUI PMENT CORPORAT TON 


"BT13A-SE 
NTIAL AND PROPRIETARY 


AH DIGITAL | 
X/VMS V4.0 CONFIDE 


I 
0 


